home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 December / PC Answers December 1995 (disc errors).iso / mxc / main1.dir / 00164_ONLINEBG.PCT.ls < prev    next >
Encoding:
Text File  |  1995-05-04  |  471 b   |  20 lines
  1. on mouseDown
  2.   global gSlot
  3.   set lSlot to the clickOn
  4.   set the picture of cast (gSlot + 120) to the picture of cast (lSlot + 140)
  5.   repeat with x = 27 to 32
  6.     set the lineSize of sprite x to 0
  7.   end repeat
  8.   set the lineSize of sprite (lSlot + 6) to 2
  9.   put lSlot - 20 into field (gSlot + 150)
  10.   updateStage()
  11.   if the doubleClick then
  12.     repeat with x = 27 to 32
  13.       puppetSprite(x, 0)
  14.     end repeat
  15.     writeMe()
  16.     writeFile()
  17.     go("Online-B")
  18.   end if
  19. end
  20.